home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / mobile / fma-2.0-stable-setup.exe / {app} / source / uPromptConflict.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-06-19  |  3.5 KB  |  140 lines
  1. unit uPromptConflict;
  2.  
  3. {
  4. *******************************************************************************
  5. * Descriptions: Interface to solve the conflits during synchronize's phonebook
  6. * $Source: /cvsroot/fma/fma/uPromptConflict.pas,v $
  7. * $Locker:  $
  8. *
  9. * Todo:
  10. *
  11. * Change Log:
  12. * $Log: uPromptConflict.pas,v $
  13. * Revision 1.4  2004/06/19 15:43:11  lordlarry
  14. * Added more Unicode support
  15. *
  16. * Revision 1.3  2004/06/05 13:32:56  lordlarry
  17. * Merged with OutlookSync branch
  18. *
  19. * Revision 1.2.4.2  2004/05/17 12:45:12  z_stoichev
  20. * Build 0.1.1.10 beta 2
  21. *
  22. * Revision 1.2.4.1  2004/03/08 17:43:00  lordlarry
  23. * Added properties so it could also be used in the Outlook Synchronization part
  24. *
  25. * Revision 1.2  2003/11/28 09:38:07  z_stoichev
  26. * Merged with branch-release-1-1 (Fma 0.10.28c)
  27. *
  28. * Revision 1.1.2.1  2003/10/27 07:22:54  z_stoichev
  29. * Build 0.1.0 RC1 Initial Checkin.
  30. *
  31. * Revision 1.1  2003/02/14 14:23:54  crino77
  32. * Initial Checkin
  33. *
  34. * $Revision: 1.4 $
  35. *
  36. *
  37. *******************************************************************************
  38. }
  39.  
  40. interface
  41.  
  42. uses
  43.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  44.   Dialogs, StdCtrls, ExtCtrls, TntStdCtrls;
  45.  
  46. type
  47.   TfrmPromptConflict = class(TForm)
  48.     Button1: TButton;
  49.     grpConflict: TRadioGroup;
  50.     Label1: TLabel;
  51.     Button2: TButton;
  52.     lblContact: TTntLabel;
  53.     lblInfo: TTntLabel;
  54.     procedure Button2Click(Sender: TObject);
  55.   private
  56.     function GetInfo: WideString;
  57.     function GetItem0Name: String;
  58.     function GetItem1Name: String;
  59.     function GetSelectedItem: Integer;
  60.     procedure SetInfo(const Value: WideString);
  61.     procedure SetItem0Name(const Value: String);
  62.     procedure SetItem1Name(const Value: String);
  63.     procedure SetSelectedItem(const Value: Integer);
  64.     function GetContact: WideString;
  65.     procedure SetContact(const Value: WideString);
  66.   public
  67.     property Contact: WideString read GetContact write SetContact;
  68.     property Info: WideString read GetInfo write SetInfo;
  69.     property Item0Name: String read GetItem0Name write SetItem0Name;
  70.     property Item1Name: String read GetItem1Name write SetItem1Name;
  71.     property SelectedItem: Integer read GetSelectedItem write SetSelectedItem;
  72.   end;
  73.  
  74. var
  75.   frmPromptConflict: TfrmPromptConflict;
  76.  
  77. implementation
  78.  
  79. {$R *.dfm}
  80.  
  81. { TfrmPromptConflict }
  82.  
  83. function TfrmPromptConflict.GetContact: WideString;
  84. begin
  85.   Result := lblContact.Caption;
  86. end;
  87.  
  88. function TfrmPromptConflict.GetInfo: WideString;
  89. begin
  90.   Result := lblInfo.Caption;
  91. end;
  92.  
  93. function TfrmPromptConflict.GetItem0Name: String;
  94. begin
  95.   Result := grpConflict.Items[0];
  96. end;
  97.  
  98. function TfrmPromptConflict.GetItem1Name: String;
  99. begin
  100.   Result := grpConflict.Items[1];
  101. end;
  102.  
  103. function TfrmPromptConflict.GetSelectedItem: Integer;
  104. begin
  105.   Result := grpConflict.ItemIndex;
  106. end;
  107.  
  108. procedure TfrmPromptConflict.SetContact(const Value: WideString);
  109. begin
  110.   lblContact.Caption := Value;
  111. end;
  112.  
  113. procedure TfrmPromptConflict.SetInfo(const Value: WideString);
  114. begin
  115.   lblInfo.Caption := Value;
  116. end;
  117.  
  118. procedure TfrmPromptConflict.SetItem0Name(const Value: String);
  119. begin
  120.   grpConflict.Items[0] := Value;
  121. end;
  122.  
  123. procedure TfrmPromptConflict.SetItem1Name(const Value: String);
  124. begin
  125.   grpConflict.Items[1] := Value;
  126. end;
  127.  
  128. procedure TfrmPromptConflict.SetSelectedItem(const Value: Integer);
  129. begin
  130.   grpConflict.ItemIndex := Value;
  131. end;
  132.  
  133. procedure TfrmPromptConflict.Button2Click(Sender: TObject);
  134. begin
  135.   Close;
  136.   raise Exception.Create('Contacts linking aborted by user');
  137. end;
  138.  
  139. end.
  140.